home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / dev / mui / urltext.lha / Urltext / Install < prev   
Encoding:
Text File  |  2002-01-25  |  2.3 KB  |  75 lines
  1. ; $VER: Urltext_Install 15.4 (25.1.2002)
  2.  
  3. (procedure P_SetMessages
  4.  
  5.     (if (= "italiano" @language)
  6.         (
  7.             (set #AskMCCsDirPromptMsg           "Scegli la directory dove installare le classi MUI")
  8.             (set #AskMCCsDirHelpMsg             "Nella directory che sceglierai, verranno copiate le classi MUI.")
  9.  
  10.             (set #CopyingMCCsMsg                "Sto copiando le classi MUI...")
  11.         )
  12.     (if (= "español" @language)
  13.         (
  14.             (set #AskMCCsDirPromptMsg           "Elija el directorio donde desea copiar las clases MUI de Urltext.")
  15.             (set #AskMCCsDirHelpMsg             "En el directorio que elija se copiarán las clases MUI de Urltext (Urltext.mcc y Urltext.mcp). Por defecto: MUI:libs/mui/")
  16.  
  17.             (set #CopyingMCCsMsg                "Copiando/Actualizando clases MUI de Urltext...")
  18.         )
  19.         (
  20.             (set #AskMCCsDirPromptMsg           "Select the drawer where you want to copy the MUI classes")
  21.             (set #AskMCCsDirHelpMsg             "In the drawer you supply here, there will be installed the MUI classes.")
  22.  
  23.             (set #CopyingMCCsMsg                "Copying or Updating MUI classes")
  24.         )
  25.     )
  26.     )
  27. )
  28.  
  29. (procedure P_AskMCCsDir
  30.     (set #MCC-dir
  31.         (askdir
  32.             (prompt #AskMCCsDirPromptMsg)
  33.             (help #AskMCCsDirHelpMsg)
  34.             (default @default-dest)
  35.         )
  36.     )
  37. )
  38.  
  39. (procedure P_CopyMCCs
  40.     (working #CopyingMCCsMsg)
  41.     (set #localMCCSDir (tackon #source-dir "MUI/"))
  42.     (foreach #localMCCsDir "#?"
  43.         (copylib
  44.             (source (tackon #localMCCsDir @each-name))
  45.             (dest @default-dest)
  46.         )
  47.     )
  48. )
  49.  
  50. (procedure P_CopyCatalogs
  51.     (set #catSourceDir (tackon #source-dir (tackon "Catalogs" @language)))
  52.     (set #catDestDir (tackon "Locale:" (tackon "Catalogs" @language)))
  53.     (if (= (and (= (exists (#catSourceDir)) 2) (= (exists (#catDestDir)) 2)) 1)
  54.         (foreach #catSourceDir "#?"
  55.             (copylib
  56.                 (source (tackon #catSourceDir @each-name))
  57.                 (dest #catDestDir)
  58.             )
  59.         )
  60.     )
  61. )
  62.  
  63. (set @default-dest "MUI:LIBS/MUI/")
  64. (set #source-dir (if (= 1 (exists @icon)) (pathonly (expandpath @icon)) (expandpath @icon)))
  65.  
  66. (P_SetMessages)
  67.  
  68. (complete 0)
  69. (P_AskMCCsDir)
  70. (set @default-dest #MCC-dir)
  71. (P_CopyMCCs)
  72. (complete 80)
  73. (P_CopyCatalogs)
  74. (complete 100)
  75.